home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Misc / emu / fbzx.lha / fbzx / Codes.h < prev    next >
Text File  |  2002-12-31  |  14KB  |  386 lines
  1. /** Z80: portable Z80 emulator *******************************/
  2. /**                                                         **/
  3. /**                          Codes.h                        **/
  4. /**                                                         **/
  5. /** This file contains implementation for the main table of **/
  6. /** Z80 commands. It is included from Z80.c.                **/
  7. /**                                                         **/
  8. /** Copyright (C) Marat Fayzullin 1994-2002                 **/
  9. /**     You are not allowed to distribute this software     **/
  10. /**     commercially. Please, notify me, if you make any    **/
  11. /**     changes to this file.                               **/
  12. /*************************************************************/
  13.  
  14. case JR_NZ:   if(R->AF.B.l&Z_FLAG) R->PC.W++; else { R->ICount-=5;R->TStates+=5;M_JR; } break;
  15. case JR_NC:   if(R->AF.B.l&C_FLAG) R->PC.W++; else { R->ICount-=5;R->TStates+=5;M_JR; } break;
  16. case JR_Z:    if(R->AF.B.l&Z_FLAG) { R->ICount-=5;R->TStates+=5;M_JR; } else R->PC.W++; break;
  17. case JR_C:    if(R->AF.B.l&C_FLAG) { R->ICount-=5;R->TStates+=5;M_JR; } else R->PC.W++; break;
  18.  
  19. case JP_NZ:   if(R->AF.B.l&Z_FLAG) R->PC.W+=2; else { M_JP; } break;
  20. case JP_NC:   if(R->AF.B.l&C_FLAG) R->PC.W+=2; else { M_JP; } break;
  21. case JP_PO:   if(R->AF.B.l&P_FLAG) R->PC.W+=2; else { M_JP; } break;
  22. case JP_P:    if(R->AF.B.l&S_FLAG) R->PC.W+=2; else { M_JP; } break;
  23. case JP_Z:    if(R->AF.B.l&Z_FLAG) { M_JP; } else R->PC.W+=2; break;
  24. case JP_C:    if(R->AF.B.l&C_FLAG) { M_JP; } else R->PC.W+=2; break;
  25. case JP_PE:   if(R->AF.B.l&P_FLAG) { M_JP; } else R->PC.W+=2; break;
  26. case JP_M:    if(R->AF.B.l&S_FLAG) { M_JP; } else R->PC.W+=2; break;
  27.  
  28. case RET_NZ:  if(!(R->AF.B.l&Z_FLAG)) { R->ICount-=6;R->TStates+=6;M_RET; } break;
  29. case RET_NC:  if(!(R->AF.B.l&C_FLAG)) { R->ICount-=6;R->TStates+=6;M_RET; } break;
  30. case RET_PO:  if(!(R->AF.B.l&P_FLAG)) { R->ICount-=6;R->TStates+=6;M_RET; } break;
  31. case RET_P:   if(!(R->AF.B.l&S_FLAG)) { R->ICount-=6;R->TStates+=6;M_RET; } break;
  32. case RET_Z:   if(R->AF.B.l&Z_FLAG)    { R->ICount-=6;R->TStates+=6;M_RET; } break;
  33. case RET_C:   if(R->AF.B.l&C_FLAG)    { R->ICount-=6;R->TStates+=6;M_RET; } break;
  34. case RET_PE:  if(R->AF.B.l&P_FLAG)    { R->ICount-=6;R->TStates+=6;M_RET; } break;
  35. case RET_M:   if(R->AF.B.l&S_FLAG)    { R->ICount-=6;R->TStates+=6;M_RET; } break;
  36.  
  37. case CALL_NZ: if(R->AF.B.l&Z_FLAG) R->PC.W+=2; else { R->ICount-=7;R->TStates+=7;M_CALL; } break;
  38. case CALL_NC: if(R->AF.B.l&C_FLAG) R->PC.W+=2; else { R->ICount-=7;R->TStates+=7;M_CALL; } break;
  39. case CALL_PO: if(R->AF.B.l&P_FLAG) R->PC.W+=2; else { R->ICount-=7;R->TStates+=7;M_CALL; } break;
  40. case CALL_P:  if(R->AF.B.l&S_FLAG) R->PC.W+=2; else { R->ICount-=7;R->TStates+=7;M_CALL; } break;
  41. case CALL_Z:  if(R->AF.B.l&Z_FLAG) { R->ICount-=7;R->TStates+=7;M_CALL; } else R->PC.W+=2; break;
  42. case CALL_C:  if(R->AF.B.l&C_FLAG) { R->ICount-=7;R->TStates+=7;M_CALL; } else R->PC.W+=2; break;
  43. case CALL_PE: if(R->AF.B.l&P_FLAG) { R->ICount-=7;R->TStates+=7;M_CALL; } else R->PC.W+=2; break;
  44. case CALL_M:  if(R->AF.B.l&S_FLAG) { R->ICount-=7;R->TStates+=7;M_CALL; } else R->PC.W+=2; break;
  45.  
  46. case ADD_B:    M_ADD(R->BC.B.h);break;
  47. case ADD_C:    M_ADD(R->BC.B.l);break;
  48. case ADD_D:    M_ADD(R->DE.B.h);break;
  49. case ADD_E:    M_ADD(R->DE.B.l);break;
  50. case ADD_H:    M_ADD(R->HL.B.h);break;
  51. case ADD_L:    M_ADD(R->HL.B.l);break;
  52. case ADD_A:    M_ADD(R->AF.B.h);break;
  53. case ADD_xHL:  I=RdZ80(R->HL.W);M_ADD(I);break;
  54. case ADD_BYTE: I=RdZ80(R->PC.W++);M_ADD(I);break;
  55.  
  56. case SUB_B:    M_SUB(R->BC.B.h);break;
  57. case SUB_C:    M_SUB(R->BC.B.l);break;
  58. case SUB_D:    M_SUB(R->DE.B.h);break;
  59. case SUB_E:    M_SUB(R->DE.B.l);break;
  60. case SUB_H:    M_SUB(R->HL.B.h);break;
  61. case SUB_L:    M_SUB(R->HL.B.l);break;
  62. case SUB_A:    R->AF.B.h=0;R->AF.B.l=N_FLAG|Z_FLAG;break;
  63. case SUB_xHL:  I=RdZ80(R->HL.W);M_SUB(I);break;
  64. case SUB_BYTE: I=RdZ80(R->PC.W++);M_SUB(I);break;
  65.  
  66. case AND_B:    M_AND(R->BC.B.h);break;
  67. case AND_C:    M_AND(R->BC.B.l);break;
  68. case AND_D:    M_AND(R->DE.B.h);break;
  69. case AND_E:    M_AND(R->DE.B.l);break;
  70. case AND_H:    M_AND(R->HL.B.h);break;
  71. case AND_L:    M_AND(R->HL.B.l);break;
  72. case AND_A:    M_AND(R->AF.B.h);break;
  73. case AND_xHL:  I=RdZ80(R->HL.W);M_AND(I);break;
  74. case AND_BYTE: I=RdZ80(R->PC.W++);M_AND(I);break;
  75.  
  76. case OR_B:     M_OR(R->BC.B.h);break;
  77. case OR_C:     M_OR(R->BC.B.l);break;
  78. case OR_D:     M_OR(R->DE.B.h);break;
  79. case OR_E:     M_OR(R->DE.B.l);break;
  80. case OR_H:     M_OR(R->HL.B.h);break;
  81. case OR_L:     M_OR(R->HL.B.l);break;
  82. case OR_A:     M_OR(R->AF.B.h);break;
  83. case OR_xHL:   I=RdZ80(R->HL.W);M_OR(I);break;
  84. case OR_BYTE:  I=RdZ80(R->PC.W++);M_OR(I);break;
  85.  
  86. case ADC_B:    M_ADC(R->BC.B.h);break;
  87. case ADC_C:    M_ADC(R->BC.B.l);break;
  88. case ADC_D:    M_ADC(R->DE.B.h);break;
  89. case ADC_E:    M_ADC(R->DE.B.l);break;
  90. case ADC_H:    M_ADC(R->HL.B.h);break;
  91. case ADC_L:    M_ADC(R->HL.B.l);break;
  92. case ADC_A:    M_ADC(R->AF.B.h);break;
  93. case ADC_xHL:  I=RdZ80(R->HL.W);M_ADC(I);break;
  94. case ADC_BYTE: I=RdZ80(R->PC.W++);M_ADC(I);break;
  95.  
  96. case SBC_B:    M_SBC(R->BC.B.h);break;
  97. case SBC_C:    M_SBC(R->BC.B.l);break;
  98. case SBC_D:    M_SBC(R->DE.B.h);break;
  99. case SBC_E:    M_SBC(R->DE.B.l);break;
  100. case SBC_H:    M_SBC(R->HL.B.h);break;
  101. case SBC_L:    M_SBC(R->HL.B.l);break;
  102. case SBC_A:    M_SBC(R->AF.B.h);break;
  103. case SBC_xHL:  I=RdZ80(R->HL.W);M_SBC(I);break;
  104. case SBC_BYTE: I=RdZ80(R->PC.W++);M_SBC(I);break;
  105.  
  106. case XOR_B:    M_XOR(R->BC.B.h);break;
  107. case XOR_C:    M_XOR(R->BC.B.l);break;
  108. case XOR_D:    M_XOR(R->DE.B.h);break;
  109. case XOR_E:    M_XOR(R->DE.B.l);break;
  110. case XOR_H:    M_XOR(R->HL.B.h);break;
  111. case XOR_L:    M_XOR(R->HL.B.l);break;
  112. case XOR_A:    R->AF.B.h=0;R->AF.B.l=P_FLAG|Z_FLAG;break;
  113. case XOR_xHL:  I=RdZ80(R->HL.W);M_XOR(I);break;
  114. case XOR_BYTE: I=RdZ80(R->PC.W++);M_XOR(I);break;
  115.  
  116. case CP_B:     M_CP(R->BC.B.h);break;
  117. case CP_C:     M_CP(R->BC.B.l);break;
  118. case CP_D:     M_CP(R->DE.B.h);break;
  119. case CP_E:     M_CP(R->DE.B.l);break;
  120. case CP_H:     M_CP(R->HL.B.h);break;
  121. case CP_L:     M_CP(R->HL.B.l);break;
  122. case CP_A:     R->AF.B.l=N_FLAG|Z_FLAG;break;
  123. case CP_xHL:   I=RdZ80(R->HL.W);M_CP(I);break;
  124. case CP_BYTE:  I=RdZ80(R->PC.W++);M_CP(I);break;
  125.                
  126. case LD_BC_WORD: M_LDWORD(BC);break;
  127. case LD_DE_WORD: M_LDWORD(DE);break;
  128. case LD_HL_WORD: M_LDWORD(HL);break;
  129. case LD_SP_WORD: M_LDWORD(SP);break;
  130.  
  131. case LD_PC_HL: R->PC.W=R->HL.W;break;
  132. case LD_SP_HL: R->SP.W=R->HL.W;break;
  133. case LD_A_xBC: R->AF.B.h=RdZ80(R->BC.W);break;
  134. case LD_A_xDE: R->AF.B.h=RdZ80(R->DE.W);break;
  135.  
  136. case ADD_HL_BC:  M_ADDW(HL,BC);break;
  137. case ADD_HL_DE:  M_ADDW(HL,DE);break;
  138. case ADD_HL_HL:  M_ADDW(HL,HL);break;
  139. case ADD_HL_SP:  M_ADDW(HL,SP);break;
  140.  
  141. case DEC_BC:   R->BC.W--;break;
  142. case DEC_DE:   R->DE.W--;break;
  143. case DEC_HL:   R->HL.W--;break;
  144. case DEC_SP:   R->SP.W--;break;
  145.  
  146. case INC_BC:   R->BC.W++;break;
  147. case INC_DE:   R->DE.W++;break;
  148. case INC_HL:   R->HL.W++;break;
  149. case INC_SP:   R->SP.W++;break;
  150.  
  151. case DEC_B:    M_DEC(R->BC.B.h);break;
  152. case DEC_C:    M_DEC(R->BC.B.l);break;
  153. case DEC_D:    M_DEC(R->DE.B.h);break;
  154. case DEC_E:    M_DEC(R->DE.B.l);break;
  155. case DEC_H:    M_DEC(R->HL.B.h);break;
  156. case DEC_L:    M_DEC(R->HL.B.l);break;
  157. case DEC_A:    M_DEC(R->AF.B.h);break;
  158. case DEC_xHL:  I=RdZ80(R->HL.W);M_DEC(I);WrZ80(R->HL.W,I);break;
  159.  
  160. case INC_B:    M_INC(R->BC.B.h);break;
  161. case INC_C:    M_INC(R->BC.B.l);break;
  162. case INC_D:    M_INC(R->DE.B.h);break;
  163. case INC_E:    M_INC(R->DE.B.l);break;
  164. case INC_H:    M_INC(R->HL.B.h);break;
  165. case INC_L:    M_INC(R->HL.B.l);break;
  166. case INC_A:    M_INC(R->AF.B.h);break;
  167. case INC_xHL:  I=RdZ80(R->HL.W);M_INC(I);WrZ80(R->HL.W,I);break;
  168.  
  169. case RLCA:
  170.   I=R->AF.B.h&0x80? C_FLAG:0;
  171.   R->AF.B.h=(R->AF.B.h<<1)|I;
  172.   R->AF.B.l=(R->AF.B.l&~(C_FLAG|N_FLAG|H_FLAG))|I;
  173.   break;
  174. case RLA:
  175.   I=R->AF.B.h&0x80? C_FLAG:0;
  176.   R->AF.B.h=(R->AF.B.h<<1)|(R->AF.B.l&C_FLAG);
  177.   R->AF.B.l=(R->AF.B.l&~(C_FLAG|N_FLAG|H_FLAG))|I;
  178.   break;
  179. case RRCA:
  180.   I=R->AF.B.h&0x01;
  181.   R->AF.B.h=(R->AF.B.h>>1)|(I? 0x80:0);
  182.   R->AF.B.l=(R->AF.B.l&~(C_FLAG|N_FLAG|H_FLAG))|I; 
  183.   break;
  184. case RRA:
  185.   I=R->AF.B.h&0x01;
  186.   R->AF.B.h=(R->AF.B.h>>1)|(R->AF.B.l&C_FLAG? 0x80:0);
  187.   R->AF.B.l=(R->AF.B.l&~(C_FLAG|N_FLAG|H_FLAG))|I;
  188.   break;
  189.  
  190. case RST00:    M_RST(0x0000);break;
  191. case RST08:    M_RST(0x0008);break;
  192. case RST10:    M_RST(0x0010);break;
  193. case RST18:    M_RST(0x0018);break;
  194. case RST20:    M_RST(0x0020);break;
  195. case RST28:    M_RST(0x0028);break;
  196. case RST30:    M_RST(0x0030);break;
  197. case RST38:    M_RST(0x0038);break;
  198.  
  199. case PUSH_BC:  M_PUSH(BC);break;
  200. case PUSH_DE:  M_PUSH(DE);break;
  201. case PUSH_HL:  M_PUSH(HL);break;
  202. case PUSH_AF:  M_PUSH(AF);break;
  203.  
  204. case POP_BC:   M_POP(BC);break;
  205. case POP_DE:   M_POP(DE);break;
  206. case POP_HL:   M_POP(HL);break;
  207. case POP_AF:   M_POP(AF);break;
  208.  
  209. case DJNZ: if(--R->BC.B.h) { R->ICount-=5;R->TStates+=5;M_JR; } else R->PC.W++;break;
  210. case JP:   M_JP;break;
  211. case JR:   M_JR;break;
  212. case CALL: M_CALL;break;
  213. case RET:  M_RET;break;
  214. case SCF:  S(C_FLAG);R(N_FLAG|H_FLAG);break;
  215. case CPL:  R->AF.B.h=~R->AF.B.h;S(N_FLAG|H_FLAG);break;
  216. case NOP:  break;
  217. case OUTA: I=RdZ80(R->PC.W++);OutZ80(((word)R->AF.B.h)*256+((word)I),R->AF.B.h);break;
  218. case INA:  I=RdZ80(R->PC.W++);R->AF.B.h=InZ80(((word)R->AF.B.h)*256+((word)I));break;
  219.  
  220. case HALT:
  221.   R->PC.W--;
  222.   R->IFF|=IFF_HALT;
  223.   R->IBackup=0;
  224.   R->ICount=0;
  225.   break;
  226.  
  227. case DI:
  228.   if(R->IFF&IFF_EI) R->ICount+=R->IBackup-1;
  229.   R->IFF&=~(IFF_1|IFF_2|IFF_EI);
  230.   break;
  231.  
  232. case EI:
  233.   if(!(R->IFF&(IFF_1|IFF_EI)))
  234.   {
  235.     R->IFF|=IFF_1|IFF_EI;
  236.     R->IBackup=R->ICount;
  237.     R->ICount=1;
  238.   }
  239.   break;
  240.  
  241. case CCF:
  242.   R->AF.B.l^=C_FLAG;R(N_FLAG|H_FLAG);
  243.   R->AF.B.l|=R->AF.B.l&C_FLAG? 0:H_FLAG;
  244.   break;
  245.  
  246. case EXX:
  247.   J.W=R->BC.W;R->BC.W=R->BC1.W;R->BC1.W=J.W;
  248.   J.W=R->DE.W;R->DE.W=R->DE1.W;R->DE1.W=J.W;
  249.   J.W=R->HL.W;R->HL.W=R->HL1.W;R->HL1.W=J.W;
  250.   break;
  251.  
  252. case EX_DE_HL: J.W=R->DE.W;R->DE.W=R->HL.W;R->HL.W=J.W;break;
  253. case EX_AF_AF: J.W=R->AF.W;R->AF.W=R->AF1.W;R->AF1.W=J.W;break;  
  254.   
  255. case LD_B_B:   R->BC.B.h=R->BC.B.h;break;
  256. case LD_C_B:   R->BC.B.l=R->BC.B.h;break;
  257. case LD_D_B:   R->DE.B.h=R->BC.B.h;break;
  258. case LD_E_B:   R->DE.B.l=R->BC.B.h;break;
  259. case LD_H_B:   R->HL.B.h=R->BC.B.h;break;
  260. case LD_L_B:   R->HL.B.l=R->BC.B.h;break;
  261. case LD_A_B:   R->AF.B.h=R->BC.B.h;break;
  262. case LD_xHL_B: WrZ80(R->HL.W,R->BC.B.h);break;
  263.  
  264. case LD_B_C:   R->BC.B.h=R->BC.B.l;break;
  265. case LD_C_C:   R->BC.B.l=R->BC.B.l;break;
  266. case LD_D_C:   R->DE.B.h=R->BC.B.l;break;
  267. case LD_E_C:   R->DE.B.l=R->BC.B.l;break;
  268. case LD_H_C:   R->HL.B.h=R->BC.B.l;break;
  269. case LD_L_C:   R->HL.B.l=R->BC.B.l;break;
  270. case LD_A_C:   R->AF.B.h=R->BC.B.l;break;
  271. case LD_xHL_C: WrZ80(R->HL.W,R->BC.B.l);break;
  272.  
  273. case LD_B_D:   R->BC.B.h=R->DE.B.h;break;
  274. case LD_C_D:   R->BC.B.l=R->DE.B.h;break;
  275. case LD_D_D:   R->DE.B.h=R->DE.B.h;break;
  276. case LD_E_D:   R->DE.B.l=R->DE.B.h;break;
  277. case LD_H_D:   R->HL.B.h=R->DE.B.h;break;
  278. case LD_L_D:   R->HL.B.l=R->DE.B.h;break;
  279. case LD_A_D:   R->AF.B.h=R->DE.B.h;break;
  280. case LD_xHL_D: WrZ80(R->HL.W,R->DE.B.h);break;
  281.  
  282. case LD_B_E:   R->BC.B.h=R->DE.B.l;break;
  283. case LD_C_E:   R->BC.B.l=R->DE.B.l;break;
  284. case LD_D_E:   R->DE.B.h=R->DE.B.l;break;
  285. case LD_E_E:   R->DE.B.l=R->DE.B.l;break;
  286. case LD_H_E:   R->HL.B.h=R->DE.B.l;break;
  287. case LD_L_E:   R->HL.B.l=R->DE.B.l;break;
  288. case LD_A_E:   R->AF.B.h=R->DE.B.l;break;
  289. case LD_xHL_E: WrZ80(R->HL.W,R->DE.B.l);break;
  290.  
  291. case LD_B_H:   R->BC.B.h=R->HL.B.h;break;
  292. case LD_C_H:   R->BC.B.l=R->HL.B.h;break;
  293. case LD_D_H:   R->DE.B.h=R->HL.B.h;break;
  294. case LD_E_H:   R->DE.B.l=R->HL.B.h;break;
  295. case LD_H_H:   R->HL.B.h=R->HL.B.h;break;
  296. case LD_L_H:   R->HL.B.l=R->HL.B.h;break;
  297. case LD_A_H:   R->AF.B.h=R->HL.B.h;break;
  298. case LD_xHL_H: WrZ80(R->HL.W,R->HL.B.h);break;
  299.  
  300. case LD_B_L:   R->BC.B.h=R->HL.B.l;break;
  301. case LD_C_L:   R->BC.B.l=R->HL.B.l;break;
  302. case LD_D_L:   R->DE.B.h=R->HL.B.l;break;
  303. case LD_E_L:   R->DE.B.l=R->HL.B.l;break;
  304. case LD_H_L:   R->HL.B.h=R->HL.B.l;break;
  305. case LD_L_L:   R->HL.B.l=R->HL.B.l;break;
  306. case LD_A_L:   R->AF.B.h=R->HL.B.l;break;
  307. case LD_xHL_L: WrZ80(R->HL.W,R->HL.B.l);break;
  308.  
  309. case LD_B_A:   R->BC.B.h=R->AF.B.h;break;
  310. case LD_C_A:   R->BC.B.l=R->AF.B.h;break;
  311. case LD_D_A:   R->DE.B.h=R->AF.B.h;break;
  312. case LD_E_A:   R->DE.B.l=R->AF.B.h;break;
  313. case LD_H_A:   R->HL.B.h=R->AF.B.h;break;
  314. case LD_L_A:   R->HL.B.l=R->AF.B.h;break;
  315. case LD_A_A:   R->AF.B.h=R->AF.B.h;break;
  316. case LD_xHL_A: WrZ80(R->HL.W,R->AF.B.h);break;
  317.  
  318. case LD_xBC_A: WrZ80(R->BC.W,R->AF.B.h);break;
  319. case LD_xDE_A: WrZ80(R->DE.W,R->AF.B.h);break;
  320.  
  321. case LD_B_xHL:    R->BC.B.h=RdZ80(R->HL.W);break;
  322. case LD_C_xHL:    R->BC.B.l=RdZ80(R->HL.W);break;
  323. case LD_D_xHL:    R->DE.B.h=RdZ80(R->HL.W);break;
  324. case LD_E_xHL:    R->DE.B.l=RdZ80(R->HL.W);break;
  325. case LD_H_xHL:    R->HL.B.h=RdZ80(R->HL.W);break;
  326. case LD_L_xHL:    R->HL.B.l=RdZ80(R->HL.W);break;
  327. case LD_A_xHL:    R->AF.B.h=RdZ80(R->HL.W);break;
  328.  
  329. case LD_B_BYTE:   R->BC.B.h=RdZ80(R->PC.W++);break;
  330. case LD_C_BYTE:   R->BC.B.l=RdZ80(R->PC.W++);break;
  331. case LD_D_BYTE:   R->DE.B.h=RdZ80(R->PC.W++);break;
  332. case LD_E_BYTE:   R->DE.B.l=RdZ80(R->PC.W++);break;
  333. case LD_H_BYTE:   R->HL.B.h=RdZ80(R->PC.W++);break;
  334. case LD_L_BYTE:   R->HL.B.l=RdZ80(R->PC.W++);break;
  335. case LD_A_BYTE:   R->AF.B.h=RdZ80(R->PC.W++);break;
  336. case LD_xHL_BYTE: WrZ80(R->HL.W,RdZ80(R->PC.W++));break;
  337.  
  338. case LD_xWORD_HL:
  339.   J.B.l=RdZ80(R->PC.W++);
  340.   J.B.h=RdZ80(R->PC.W++);
  341.   WrZ80(J.W++,R->HL.B.l);
  342.   WrZ80(J.W,R->HL.B.h);
  343.   break;
  344.  
  345. case LD_HL_xWORD:
  346.   J.B.l=RdZ80(R->PC.W++);
  347.   J.B.h=RdZ80(R->PC.W++);
  348.   R->HL.B.l=RdZ80(J.W++);
  349.   R->HL.B.h=RdZ80(J.W);
  350.   break;
  351.  
  352. case LD_A_xWORD:
  353.   J.B.l=RdZ80(R->PC.W++);
  354.   J.B.h=RdZ80(R->PC.W++); 
  355.   R->AF.B.h=RdZ80(J.W);
  356.   break;
  357.  
  358. case LD_xWORD_A:
  359.   J.B.l=RdZ80(R->PC.W++);
  360.   J.B.h=RdZ80(R->PC.W++);
  361.   WrZ80(J.W,R->AF.B.h);
  362.   break;
  363.  
  364. case EX_HL_xSP:
  365.   J.B.l=RdZ80(R->SP.W);WrZ80(R->SP.W++,R->HL.B.l);
  366.   J.B.h=RdZ80(R->SP.W);WrZ80(R->SP.W--,R->HL.B.h);
  367.   R->HL.W=J.W;
  368.   break;
  369.  
  370. case DAA:
  371.   J.W=R->AF.B.h;
  372.   if(R->AF.B.l&C_FLAG) J.W|=256;
  373.   if(R->AF.B.l&H_FLAG) J.W|=512;
  374.   if(R->AF.B.l&N_FLAG) J.W|=1024;
  375.   R->AF.W=DAATable[J.W];
  376.   break;
  377.  
  378. default:
  379.   if(R->TrapBadOps)
  380.     printf
  381.     (
  382.       "[Z80 %lX] Unrecognized instruction: %02X at PC=%04X\n",
  383.       (long)R->User,RdZ80(R->PC.W-1),R->PC.W-1
  384.     );
  385.   break;
  386.